Clinton - Portrait of Victory/PORTRAIT OF VICTORY.BIN/cltpc256/eagle1.txt

Text File | 1992-12-30 | 17KB | 928 lines

; The Assignment main menu
start1:
pload ehass 1
putup 0 415 p1
pfree 1
pload asstp 1
putup 111 79 p1
pfree 1
pload ebass 1
putup 8 31 p1
pfree 1
pload ebnav 1
putup 0 0 p1
pfree 1
menu11:
set gonum 11
mn11:
waitkey
getkey k
if @k==1
  set num 1
  goto menu111
else
  if @k==2
    set num 1
    goto menu112
  else
    if @k==3
      set num 1
      xbkg
      goto menu113
    else
      if @k==4
        set num 1
        goto menu114
      else
        if @k==5
          goto menu115
        else
          if @k==chr(104)||@k==chr(72)
            set hnum 1
            goto help
          else
            if @k==chr(112)||@k==chr(80)
              xbkg2
              link eagle menu1
            else
              if @k==chr(101)||@k==chr(69)
                xbkg
                pload edexit 1
                putup 190 200 p1
                pfree 1
                mn11b:
                waitkey
                getkey k
                if @k==chr(13)
                  exit
                else
                  if @k==chr(27)
                    xbkg
                    pload asstp 1
                    putup 111 79 p1
                    pfree 1
                    goto menu11
                  else
                    goto mn11b
                  endif
                endif
              else
                goto mn11
              endif
            endif
          endif
        endif
      endif
    endif
  endif
endif

; Audio Introduction selection display
menu111:
set gonum 111
set num 1
set abort on
mn111:
set k ""
set m ""
pload menum 1
pfade 0 1
pfree 1
pload aix$@num 1
set px (639-p1->xsize)/2
set py 67+((355-p1->ysize)/2)
putup @px @py p1
pfree 1
  if @num==1
    cdplay 2 21
    timer
    waitkey 2100
  endif
  if @num==2
    cdplay 3 28
    timer
    waitkey 2800
  endif
  if @num==3
    cdplay 4 16
    timer
    waitkey 1600
  endif
  if @num==4
    cdplay 5 20
    timer
    waitkey 2000
  endif
  if @num==5
    cdplay 6 9
    timer
    waitkey 900
  endif
  getkey m
  xstop
  cdstop
if @num==5
  pload ebkg 1
  pfade 0 1
  pfree 1
  set abort off
  goto start1
else
  set num @num+1
  goto mn111
endif

; Rosenblatt Audio with photos selection display
menu112:
set gonum 112
set abort on
mn112:
set k ""
set m ""
pload menum 1
pfade 0 1
pfree 1
pload arx$@num 1
set px (639-p1->xsize)/2
set py 67+((355-p1->ysize)/2)
putup @px @py p1
pfree 1
  if @num==1
    cdplay 59 21
    timer
    waitkey 2100
  endif
  if @num==2
    cdplay 60 21
    timer
    waitkey 2100
  endif
  if @num==3
    cdplay 61 21
    timer
    waitkey 2100
  endif
  if @num==4
    cdplay 62 15
    timer
    waitkey 1500
  endif
  if @num==5
    cdplay 63 9
    timer
    waitkey 900
  endif
  if @num==6
    cdplay 64 14
    timer
    waitkey 1400
  endif
  if @num==7
    cdplay 65 20
    timer
    waitkey 2000
  endif
  if @num==8
    cdplay 66 25
    timer
    waitkey 2500
  endif
  if @num==9
    cdplay 67 65
    timer
    waitkey 6500
  endif
  getkey m
  xstop
  cdstop
if @num==9
  pload ebkg 1
  pfade 0 1
  pfree 1
  goto start1
else
  set num @num+1
  goto mn112
endif

; Rosenblatt text selection display
menu113:
set gonum 113
mn113:
color 0
rect 40 95 600 405
color 1
fload times15 1
fgaps 1 5 3
set buf readfile(artxt$@num$.doc)
window 60 95 580 390
text @@buf
. farfree(@buf)
window
set center on
ffree 1
fload ibm8 1
text 0 115 "Page "$@num$" of 19"
text 0 105 "Press <PGUP> for next or <PGDN> for prior."
set center off
ffree 1
mn113b:
waitkey
getkey k
if @k==1
  set num 1
  goto menu111
else
  if @k==2
    set num 1
    goto menu112
  else
    if @k==4
      set num 1
      goto menu114
    else
      if @k==5
        goto menu115
      else
        if @k==chr(104)||@k==chr(72)
          set hnum 1
          goto help
        else
          if @k==chr(112)||@k==chr(80)
            xbkg2
            link eagle menu1
          else
            if @k==chr(101)||@k==chr(69)
              xbkg
              pload edexit 1
              putup 190 200 p1
              pfree 1
              mn113c:
              waitkey
              getkey k
              if @k==chr(13)
                exit
              else
                if @k==chr(27)
                  xbkg
                  goto mn113
                else
                  goto mn113c
                endif
              endif
            else
              if @k==chr(73)$chr(1)||@k==chr(72)$chr(1)
                if @num==19
                  set num 1
                  goto mn113
                else
                  set num @num+1
                  goto mn113
                endif
              else
                if @k==chr(81)$chr(1)||@k==chr(80)$chr(1)
                  if @num==1
                    set num 19
                    goto mn113
                  else
                    set num @num-1
                    goto mn113
                  endif
                else
                  goto mn113b
                endif
              endif
            endif
          endif
        endif
      endif
    endif
  endif
endif

; PF Vision/Tech Info (Photos w/Captions) selection display
menu114:
set gonum 114
xbkg
mn114:
pload ebcft 1
putup 16 74 p1
pfree 1
pload apx$@num 1
putup 32 140 p1
pfree 1
color 1
fload ibm8 1
fgaps 1 4 2
set buf readfile(apx$@num$.doc)
window 408 125 592 375
text @@buf
. farfree(@buf)
window
ffree 1
mn114b:
waitkey
getkey k
if @k==1
  set num 1
  goto menu111
else
  if @k==2
    set num 1
    goto menu112
  else
    if @k==3
      set num 1
      xbkg
      goto menu113
    else
      if @k==5
        goto menu115
      else
        if @k==chr(104)||@k==chr(72)
          set hnum 1
          goto help
        else
          if @k==chr(112)||@k==chr(80)
            xbkg2
            link eagle menu1
          else
            if @k==chr(101)||@k==chr(69)
              xbkg
              pload edexit 1
              putup 190 200 p1
              pfree 1
              mn114c:
              waitkey
              getkey k
              if @k==chr(13)
                exit
              else
                if @k==chr(27)
                  goto mn114
                else
                  goto mn114c
                endif
              endif
            else
              if @k==chr(13)
                if @num==8
                  xbkg
                  pload asstp 1
                  putup 111 79 p1
                  pfree 1
                  goto menu11
                else
                  set num @num+1
                  goto mn114
                endif
              else
                goto mn114b
              endif
            endif
          endif
        endif
      endif
    endif
  endif
endif

; On Location (Video) selection display
menu115:
set gonum 115
set k ""
set abort on
mn115:
pload ebkg 1
pfade 0 1
pfree 1
pload assolv 1
palette 1
putup 120 152 p1
pfree 1
mn115b:
color 0
rect 147 212 306 331
waitkey
getkey k
if @k==chr(109)||@k==chr(77)
  pload ebkg 1
  palette 1
  pfade 0 1
  pfree 1
  set abort off
  goto start1
else
  if @k==1
    pload assolv1
    putup 120 152 p1
    pfree 1
    set num 1
    mn1156:
    set k ""
    set m ""
    color 0
    rect 147 212 306 331
    pload avxa$@num 1
    putup 147 211 p1
    pfree 1
      if @num==1
        cdplay 39 12
        timer
        waitkey 1200
      endif
      if @num==2
        cdplay 40 12
        timer
        waitkey 1200
      endif
      if @num==3
        cdplay 41 16
        timer
        waitkey 1600
      endif
      if @num==4
        cdplay 42 15
        timer
        waitkey 1500
      endif
      if @num==5
        cdplay 43 17
        timer
        waitkey 1700
      endif
      getkey m
      xstop1
      cdstop
    if @num==5
      pload assolv